Developer CD Series 1994…tember: Reference Library/Dev.CD Sep 94.toast/Periodicals/develop/develop Issue 11/develop 11 code/The NetWork Project/Examples (For System Folder)/NetWork Tools/Startup

Text File | 1992-07-15 | 4.9 KB | 164 lines | [TEXT/MPS ]

#    Startup for MPW shell. Minor modification for
#    remote starting with NetWork
#    Copyright © The NetWork Project, Heidelberg
#    Copyright © G. Sawitzki, Heidelberg
#
#  based on:
#    Startup - MPW Shell Startup File
#
#    Copyright Apple Computer, Inc. 1985-1988
#    All Rights Reserved.

#    {Boot} - The boot disk.  (Predefined.)
            Export Boot

#    {SystemFolder} - The directory that contains System & Finder.  (Predefined.)
            Export SystemFolder

#    {ShellDirectory} - The directory that contains MPW Shell.  (Predefined.)
            Export ShellDirectory

#    {Active} - The active (topmost) window.  (Predefined.)
            Export Active

#    {Target} - The target (previously active) window.  (Predefined.)
            Export Target

#    {Worksheet} - The name of the Worksheet window.  (Predefined.)
            Export Worksheet

#    {Status} - The result of the last command executed.  (Predefined.)
            Export Status

#    {User} - Automatically defined to the name the appears in the Chooser.
            Export User

#    {MPW} - The volume or folder containing the Macintosh Programmer's Workshop.
#            If you put the MPW Shell out on the desktop, redefine this variable
#            to be {Boot}MPW:
            Set MPW "{ShellDirectory}"
            Export MPW

#    {Commands} - Directories to search for commands.
            Set Commands ":,{MPW}Tools:,{MPW}Scripts:,{MPW}Applications:"
            Export Commands

#    {AIncludes} - Directories to search for assembly language include files.
            Set AIncludes "{MPW}Interfaces:AIncludes:"
            Export AIncludes

#    {Libraries} - Directory that contains shared libraries.
            Set Libraries "{MPW}Libraries:Libraries:"
            Export Libraries

#    {CIncludes} - Directories to search for C include files.
            Set CIncludes "{MPW}Interfaces:CIncludes:"
            Export CIncludes

#    {CLibraries} - Directory that contains C libraries.
            Set CLibraries "{MPW}Libraries:CLibraries:"
            Export CLibraries

#    {PInterfaces} - Directories to search for Pascal interface files.
            Set PInterfaces "{MPW}Interfaces:PInterfaces:"
            Export PInterfaces

#    {PLibraries} - Directory that contains Pascal libraries.
            Set PLibraries "{MPW}Libraries:PLibraries:"
            Export PLibraries

#    {RIncludes} - Directory that contains Rez include files.
            Set RIncludes "{MPW}Interfaces:RIncludes:"
            Export RIncludes

#    {CaseSensitive} - If non-zero, pattern matching is case sensitive.
            Set CaseSensitive 0
            Export CaseSensitive

#    {SearchBackward} - If non-zero, search will go backwards.
            Set SearchBackward 0
            Export SearchBackward

#    {SearchWrap} - If non-zero, search will wrap.
            Set SearchWrap 0
            Export SearchWrap

#    {SearchType} - Specifies the default searching type.  (0/literal,
#        1/word, 2/regular expression)
            Set SearchType 0
            Export SearchType

#    {Tab} - Default tab setting for new windows.
            Set Tab 4
            Export Tab

#    {Font} - Default Font for new windows.
            Set Font Monaco
            Export Font

#    {FontSize} - Default font size for new windows.
            Set FontSize 9
            Export FontSize

#    {AutoIndent} - If non-zero, auto indentation will be the default for
#        new windows.
            Set AutoIndent 1
            Export AutoIndent

#    {WordSet} - Character set that defines words for searches and double-clicks.
            Set WordSet 'a-zA-Z_0-9'
            Export WordSet

#    {PrintOptions} - Options used by the Print Window and Print Selection menus.
            Set PrintOptions '-h'

#    {Exit} - If non-zero, command files terminate after the first error.
            Set Exit 1
            Export Exit

#    {Echo} - If non-zero, commands are echoed before execution.
            Set Echo 0
            Export Echo

#    {Test} - If non-zero, tools and applications are not executed.
            Set Test 0
            Export Test

#    Commando Support
             Export Windows
             Export Aliases
             Set Commando Commando
            Export Commando

#    Aliases
            Alias File Target


#    The file UserStartup can be used to override definitions made in Startup,
#    or to define additional variables, exports, and aliases.  UserStartup may
#    also be used to define menu items, open windows, etc.  The file should be
#    located in the directory containing the MPW Shell.

            Execute "{ShellDirectory}UserStartup"

#    Since UserStartup is distributed with MPW, you may want to have other
#    startup files that will not be overwritten with a new release.
#    Other personalized startup files may be named UserStartup•≈ - such as
#    "UserStartup•John" or "UserStartup•Tom"  (• is option-8).
#    These files should be located in the directory containing the MPW Shell.

            For i in `(Files "{ShellDirectory}"UserStartup•≈ || Set Status 0) ≥ dev:null`
            #################################################
            #### Changed for remoteJob. we take a UserStartup script execute it,
            #### and delete it if ok. You may want to improve this for your purposes.
                    Execute "{i}" && delete -y "{i}"
            #################################################

            End
            Unset i
#################################################
#### Changed for remoteJob. Automatic save of all files.
#### You may want to improve this for your purposes.
save -a
#################################################
quit